13) Izracunati y=Ax gde je x niz a A matrica




Sub zad13()
Dim a(100, 100) As Double, i As Long, j As Long, x(100) As Double, s As Double, y(100) As Double
n = Cells(1, 1)
For i = 1 To n
 For j = 1 To n
  a(i, j) = Cells(i + 1, j)
  Next
  Next
For i = 1 To n
x(i) = Cells(i + 1, n + 1)
Next
For i = 1 To n
s = 0
 For j = 1 To n
  s = s + a(i, j) * x(j)
  Next
  y(i) = s
  Next
  For i = 1 To n
  Cells(i + 1, n + 3) = y(i)
  Next
End Sub
